Fix a default regexp

diff --git a/README.org b/README.org
index d282a94a48acea228ce4bd1125c721074db02ba9..26a507f47da1545468c5769a1c89a865959d9be4 100644 (file)
--- a/README.org
+++ b/README.org
@@ -252,7 +252,7 @@ descriptions directly. The relevant variables are
 Here's an example of one of the default key replacements
 
 #+BEGIN_SRC emacs-lisp
-("<\\(\\(C-\\|M-\\)*.+\\)>" . "\\1")
+("<\\([[:alnum:]-]+\\)>" . "\\1")
 #+END_SRC
 
 The =car= takes a string which may use emacs regexp and the =cdr= takes a string

diff --git a/which-key.el b/which-key.el
index 865712e4caa5d6f59c69b2cf099cd6c7f64c7dd7..e128302dcf87f637f78874cc2c427fbc717d6408 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -79,7 +79,7 @@ of the which-key popup."
   :type 'integer)
 
 (defcustom which-key-key-replacement-alist
-  '(("<\\(\\(C-\\|M-\\)*.+\\)>" . "\\1") ("left" . "←") ("right" . "→"))
+  '(("<\\([[:alnum:]-]+\\)>" . "\\1") ("left" . "←") ("right" . "→"))
   "The strings in the car of each cons are replaced with the
 strings in the cdr for each key.  Elisp regexp can be used as
 in the first example."